home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat27 / afont / loadiff.rexx < prev   
OS/2 REXX Batch file  |  1993-02-20  |  1KB  |  53 lines
  1. /*
  2.  * Charge une série de brosses IFF dans la police courante
  3.  * Version 1.00 par Denis GOUNELLE
  4.  * Utilisation: rx LoadIFF <répertoire> <début> <fin>
  5.  *
  6.  * Exemple : LoadIFF ram:brosses A Z
  7.  * charge les brosses ram:brosses/A à ram:brosses/Z
  8.  */
  9.  
  10. /* examine les arguments */
  11. PARSE ARG repert debut fin
  12. IF LENGTH( fin ) = 0 THEN DO
  13.     SAY "Usage: LoadIff <repertoire> <début> <fin>"
  14.     EXIT 10
  15.     END
  16.  
  17. /* accède au port AREXX de AFont */
  18. IF ~ SHOW( 'P' , 'AFont_rexx' ) THEN DO
  19.     SAY "Vous devez lancer AFont pour utiliser ce programme"
  20.     EXIT 10
  21.     END
  22.  
  23. /* vérifie le nom de répertoire */
  24.  
  25. IF ( RIGHT( repert , 1 ) ~= ":" ) &  ,
  26.    ( RIGHT( repert , 1 ) ~= "/" ) THEN repert = repert || "/"
  27.  
  28. /* prépare la boucle de chargement */
  29.  
  30. code1 = C2D( STRIP( debut ) )
  31. code2 = C2D( STRIP( fin ) )
  32. IF code1 > code2 THEN DO
  33.     car   = code1
  34.     code1 = code2
  35.     code2 = car
  36.     END
  37.  
  38. /* boucle de chargement */
  39.  
  40. ADDRESS "AFont_rexx"
  41.  
  42. DO car = code1 TO code2
  43.     fichier = repert || d2c( car )
  44.     IF EXISTS( fichier )
  45.     THEN "BRUSH "car" "fichier
  46.     ELSE SAY "Le fichier "fichier" n'existe pas !"
  47. END
  48.  
  49. /* fin */
  50.  
  51. "TOFRONT"
  52.  
  53.